home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / party / sound_41.lha / HDInstall < prev    next >
Text File  |  1995-11-12  |  4KB  |  144 lines
  1. ;$VER: Sound #4 HD Installation script V1.33 (13.11.95)
  2. ;
  3. ; (c) Copyright 1995,1996 John 'SHAYERA' Hinge / Spoon
  4. ;
  5. ; Version History :
  6. ; 1.31 : Whoops, It seems that I had forgotten the fonts ;)
  7. ; 1.32 : Added copying of the XPK files.
  8. ; 1.33 ; Added checking of enough free space on destination.
  9.  
  10.  
  11.  
  12. (complete 0)
  13. (set @default-dest "Work:")
  14.  
  15. ; Set up various Texts
  16.  
  17. (set #MainName-Txt ("Sound #4 The Mood Issue"))
  18.  
  19. (set #BaseName-Txt ("Sound4"))
  20.  
  21. (set #Disk1Name-Txt (cat #BaseName-Txt "_1:"))
  22.  
  23. (set #Disk2Name-Txt (cat #BaseName-Txt "_2:"))
  24.  
  25. (set #Intro-Txt (cat "\n\nWelcome to \n" #MainName-Txt "\n"
  26.                      "Hard Disk Install Script\n\n\n\n"))
  27.  
  28. (set #LowSpace-Txt (cat "\n\n\n" #MainName-Txt
  29.                        " requires 1.5 MB free on your disk.\n\n"
  30.                        "Installation failed due to low diskspace...\n\n"))
  31.  
  32. (set #Path-Txt (cat "Select the target directory. A directory "
  33.                     #BaseName-Txt " will " "be created there."))
  34.  
  35. (set #Path-Help (cat "\nThis section lets you choose the "
  36.                      "target directory to install " #MainName-Txt
  37.                      ". \n\n" "A directory " #BaseName-Txt
  38.                      " will be created there.\n\n"
  39.                      "Default is Work:\n\n\n"
  40.                      @askdir-help))
  41.  
  42.  
  43. ; The actual Main routine of the Script
  44.  
  45. (message #Intro-Txt)
  46.  
  47.  
  48. ; Select Installation destination
  49. (set target (askdir (prompt #Path-Txt) (help #Path-Help)
  50.                     (default @default-dest) (newpath)))
  51.  
  52. (set FreeSpace (getdiskspace target))
  53.  
  54. (set @default-dest target)
  55.  
  56. ; Check for enough free space on target disk
  57. (
  58.     if    (< FreeSpace 1500000)        ; Do we have less than 1.5 Mb free ??
  59.         (abort #LowSpace-Txt)
  60. )
  61.  
  62.  
  63. (complete 5)
  64.  
  65. ; Do file copying.. Only one of the copyings has been 'folded out'
  66. ;  as they all are similar
  67.  
  68. ;XPK files
  69. (copylib
  70.     (prompt (cat "Copying the XPKMaster library."))
  71.     (help @copylib-help)
  72.     (source (cat (tackon #Disk1Name-Txt "libs/xpkmaster.library")))
  73.     (dest "LIBS:")
  74.     (confirm)
  75. )
  76.  
  77. (copylib
  78.     (prompt (cat "Copying the XPKSQSH library."))
  79.     (help @copylib-help)
  80.     (source (cat (tackon #Disk1Name-Txt "libs/compressors/xpkSQSH.library")))
  81.     (dest "LIBS:compressors")
  82.     (confirm)
  83. )
  84.  
  85.  
  86. (
  87.     copyfiles
  88.     (
  89.         prompt "Copying to " #target
  90.     )
  91.     (
  92.         help @copy-files-help
  93.     )
  94.     (
  95.         source #Disk1Name-Txt
  96.     )
  97.     (
  98.         dest
  99.         (
  100.             tackon target #BaseName-Txt
  101.         )
  102.     )
  103.     (
  104.         pattern "Sound#?"
  105.     )
  106. )
  107.  
  108.  
  109. ;Doc files
  110. (complete 10)
  111. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk1Name-Txt)
  112. (dest (tackon target #BaseName-Txt)) (pattern "DO#?"))
  113.  
  114. ;Fonts
  115. (complete 20)
  116. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk1Name-Txt)
  117. (dest (tackon target #BaseName-Txt)) (pattern "FO#?"))
  118.  
  119. ;Gfx files from Disk 1
  120. (complete 25)
  121. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk1Name-Txt)
  122. (dest (tackon target #BaseName-Txt)) (pattern "GF#?"))
  123.  
  124. ;Msx files from Disk 1
  125. (complete 37)
  126. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk1Name-Txt)
  127. (dest (tackon target #BaseName-Txt)) (pattern "MS#?"))
  128.  
  129. ;Gfx files from Disk 2
  130. (complete 50)
  131. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk2Name-Txt)
  132. (dest (tackon target #BaseName-Txt)) (pattern "GF#?"))
  133.  
  134. ;Msx files from Disk 2
  135. (complete 75)
  136. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk2Name-Txt)
  137. (dest (tackon target #BaseName-Txt)) (pattern "MS#?"))
  138.  
  139. ;The control file which convinces Sound to run as one dir setup
  140. (complete 95)
  141. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source #Disk2Name-Txt)
  142. (dest (tackon target #BaseName-Txt)) (pattern "DISK2#?"))
  143. (complete 100)
  144.